home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / mail / iris.lha / Iris / DelFolder.irx < prev    next >
Text File  |  1999-04-17  |  694b  |  30 lines
  1. /* REXX-script to delete the contents of a folder
  2.    $VER: IrisRMail.irx 1.5 (17.4.99) supplied with Iris V1.9
  3. */
  4.  
  5. options results
  6. options failat 11
  7.  
  8. messagefile
  9. if rc = 10 then do
  10.    selectmessage 0
  11.    if rc = 10 then do
  12.       askchoice '"Delete all messages"' '"There are no messages to*Ndelete in this folder!"' '*_OK'
  13.       exit
  14.    end
  15. end
  16.  
  17. askchoice '"Delete all messages"' '"Are you sure you want to delete all messages in this folder?"' '_Yes|_No'
  18.  
  19. if rc = 0 then do
  20.    selectmessage 0
  21.    messagefile
  22.    a=substr(result,1,length(result)-11)||"#?"
  23.    address command "DELETE" a
  24.    getfolder
  25.    fol=result
  26.    setfolder '"'||fol||'"' forcereload
  27.    setfolder '"'||fol||'"' forcereload
  28. end
  29.  
  30.